PC Gamer (Italian) 29/PC Gamer IT CD 29 1-2.iso/MEDIA/UPDATE.DXR/fields_14_zList.ls

Text File | 1997-12-01 | 403 b | 22 lines

on mouseDown
  global gTB
  puppetSound(2, 0)
  puppetSound(2, "Click")
  set ml to -999
  repeat while the mouseDown
    if (the mouseLine > 0) and (the mouseLine <> ml) then
      set ml to the mouseLine
      set err to mGo(gTB, ml)
      CheckError(err, "mGo")
      updateDisplay()
      next repeat
    end if
    if the mouseLine < 0 then
      pass()
    end if
  end repeat
end

on mouseUp
end